﻿Public Class SimulationChoc

    Public Sub New(NomParametre As String, ValeurChoc As Double)
        _NomParametre = NomParametre
        _ValeurChoc = ValeurChoc
    End Sub

    Private _NomParametre As String
    Public ReadOnly Property NomParametre As String
        Get
            Return _NomParametre
        End Get
    End Property

    Private _ValeurChoc As Double
    Public ReadOnly Property ValeurChoc As Double
        Get
            Return _ValeurChoc
        End Get
    End Property
End Class
